home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Opus5.5 / ARexx.lha / ARexx / ParentToDest.dopus5 < prev    next >
Text File  |  1996-06-13  |  513b  |  23 lines
  1. /* ParentToDest for Directory Opus 5.5
  2.  
  3. $VER: ParentToDest.dopus5 1.5 (13.6.96)
  4.  
  5. *** This script no longer works -- use DOpusFuncs instead! ***
  6.  
  7. */
  8. parse arg DOpusPort
  9.  
  10. If DOpusPort="" THEN Do
  11.     Say "Not correctly called from Directory Opus 5!"
  12.     Say "Load this ARexx script into an editor for more info."
  13.     EXIT
  14.     END
  15. If ~Show("P",DOpusPort) Then Do
  16.     Say DOpusPort "is not a valid port."
  17.     EXIT
  18.     End
  19. Address value DOpusPort
  20.  
  21. dopus request '"ParentToDest.dopus5 is obselete.'||'0A'x||'Use DOpusFuncs instead" OK'
  22. EXIT
  23.